home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc20 / gemfsc20.lzh / GEMFBIND / AESOBJC2.S < prev    next >
Text File  |  1993-03-26  |  2KB  |  77 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.  
  9. ;*************************************************************************
  10. ;*
  11. ;* Object Library routines 2 of 2.
  12. ;*
  13. ;*************************************************************************
  14.  
  15. ;-------------------------------------------------------------------------
  16. ; objc_offset
  17. ;-------------------------------------------------------------------------
  18.  
  19.           globl     _objc_offset
  20. _objc_offset:
  21. ;          .cargs    #8,ptree.l,obj,px.l,py.l
  22.  
  23. ptree            =    8
  24. obj             =    12
  25. px                =    14
  26. py                =    18
  27.  
  28.  
  29.           link        a6,#-6                ; allocate intout[3].
  30.  
  31.           move.l    #$2C010301,d0       ; AControl  44,1,3,1
  32.  
  33.           moveq.l    #-6,d1                ;  = intout
  34.           lea        obj(a6),a1           ; -> intin
  35.           lea        ptree(a6),a0       ; -> addrin
  36.  
  37.           jsr        aes_call
  38.  
  39.           moveq.l    #-6,d1
  40.           lea        px(a6),a1
  41.           jmp        (a0)
  42.  
  43. ;-------------------------------------------------------------------------
  44. ; objc_edit
  45. ;-------------------------------------------------------------------------
  46.  
  47.           globl     _objc_edit
  48. _objc_edit:
  49. ;          .cargs    #8,ptree.l,obj,char,idx,kind,pnewidx.l
  50.  
  51. ptree             =     8
  52. obj              =     12
  53. char            =    14
  54. idx             =    16
  55. kind            =    18
  56. pnewidx         =    20
  57.  
  58.  
  59.           link        a6,#-4                ; allocate intout[2].
  60.  
  61.           move.l    #$2E040201,d0       ; AControl  46,4,2,1
  62.  
  63.           moveq.l    #-4,d1                ; -> intout
  64.           lea        obj(a6),a1           ; -> intin
  65.           lea        ptree(a6),a0       ; -> addrin
  66.  
  67.           jsr        aes_call
  68.  
  69.           move.w    -4(a6),d0
  70.           move.l    pnewidx(a6),a1
  71.           move.w    -2(a6),(a1)
  72.           unlk        a6
  73.           rts
  74.  
  75. ;          end of code
  76.  
  77.